home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / ycor.l < prev   
Text File  |  2007-02-28  |  242b  |  10 lines
  1. 9000 FUNC YCOR CLOSED
  2. 9010 HI#:=PEEK(27259)
  3. 9020 LO#:=PEEK(27260)
  4. 9030 IF HI#>128 OR (HI#=128 AND LO#>199) THEN
  5. 9040 RETURN 256*(256-HI#)+199-LO#
  6. 9050 ELIF HI#<=128 THEN
  7. 9060 RETURN (256*(256-HI#)-LO#+199)-65536
  8. 9070 ENDIF 
  9. 9080 ENDFUNC YCOR
  10.